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COMMENT? * TITLE? 85500/85700 MaRK XIV SYSTEM RELEASE * 00000001 | 
* FILE ID: SYMBOL/DUMPANG TAPE 1D: SYMBUL27FILEQOO * CoOUud00E e 
* THIS MATERIA RIE TAK RUUG RAT * 00U00003. 
* AND IS NOT TO BE REPROVUCED? USED» OR DISCLOSED « 00000004 
‘ EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00000005 6 
* Nd ‘w 00000006 —eess—is—s—sssits 
* BURROUGHS CORPURATIUN> VETROITs» MICHIGAN 46232. P 0g0u0007 : 
* * vo0v0008 @ 
* COPYRIG 971» Gf2 BUKR HS CURFUKAT N * 0000009 aA aes eetlent et) ae 
* AA220206 AA332366 AA3B6657 «300000040 
DUMP/ANALYZE oooovot2 @ 
SEVERAL OPTIONS ARE AVAILABLE “FUR CONTROLLING TRE ANALYSIS 00000015 —s de 
OF A MEMORY DUMP, ThEY MaY BE CLASSIFIEL INTO FOUR CATEGORIES: 00000020 @ 
I, THOSE WHICH SPECIFY THE FORMAT UF THE PRINTUUT OF MEMORY? 00000030 —_— —_ “4 
SPLASH OUMPSOCTAL DUMP>ALPHA/OCTAL UUMP,/OR ALPHA DUMPS 00000040 .@ 
“EITHER SIA OR DOUBLY SPAG ) ie thee bee ee I 
00000055 i 
IIe THUSE WHICH INCLLDE OR EXCLUDE AREAS UF MEMURY NCT OTHERWISE 00000060 @ 
INCLUDED OR EXCLUDED: __900v0070 _ Baal lt aa ee ghee 
te INCLUSION OF AVAILABLE AREAS» 00000080 e 
(2+ EXCLUSION OFS 00000110 ! 
“he MCP CODE AREA inate sc ee i St FOUN BOS Se ne BS cep Seay a 
Be NORMAL STATE CODE AREAS. | 00000130 
C. NORMAL STATE AREAS UTHER THAN THUSE RELATING TO ONE 00000140 @ 
PF A a , Ni ~ fe X K . x SBE cB al Seeedt Soak ae PP SOP sd ata ae Or ; 
De ENTIRE CONTENTS CF MEMORY 00000155 
III, THOSE WHICH CAUSE OMISSION OF CERTAIN SECTIONS OF ANALYSISt 00000160 ‘@ 
J PLA r fy a A 5 ‘ SR Aa teee re ee Sle ease gh oe a th 
ALPHABETICALLY AND BY PRT LOCATIONs 00000180 : 
00000205 “@ 
a : ONTRO Ki OUM NG O00 0 _ Qieadne ot het as as 
Me EXCLUSION OF ALL NORMAL STATE STACKS EXCEPTING THE ONE 00000220 : 
BELONGING TO THE SAME MIX INDEX AS ThE ONE SPECIFIED BY THE USER» 00000230 @ 
SION 0 A 1 K* ARGC A o0000 0 Oa ae? eee Gate dacs Set te tha Ate oy a 
ANALYZER WOULD BE UNABLE TO Locale thet THE "UDdEaRS “ASSISTANCEs 000U0250 
ute 9 | 00000255 @ 
MAJORITY TIONS MAY SE SET USING A COMMON CONTROL 00000260 ae % 
CARD} A FEW MAY BE SET ONLY VIA THE "IN" MESSAGE TO ALTER THE 00000270 
CONTENTS OF CERTAIN PRT CELLS MHICH HAVE BEEN RESERVED FOR 00000280 ‘@ 
CDN TAN ‘ an 0 O0 ae nt tee woes Bok Hy Bl 
00000295 s 
THE COMMON CONTROL CARO IS ASSUMED TO CONTAIN AN EIGHT DIGIT 00000300 @ 
_NUMBER== PPeaRs LEADING ZEROES ARE 000 0 acl Fass ated 
AUTOMATICALLY: SUPPLIED: THE "ANALYZER SEPARATES THE & DIGITS INTO 00000320 ‘@ 
TWO GROUPS: , 00000330 “ 
ae poe: ; a 0000 etc e Ge atkedalid 
A, THE 5 LEFT@MOST DIGITS ARE EXPECTED TU HE *OCTAL* DIGITS 00000340 id 
WHICH REPRESENT THE Tne OF “STACK _ADURESS OF THE USER SPECIFIED 00000350 ihe 
KAR \ uy Soe ARE "9" 00036 both eRe n pyle, o 5. eenteallh 
ONLY Stacks “LOCATED BY “THE ANALYZER: WILL QE DUMPED,  OTHERWISE> 00000370 w 
ONE ADDITIONAL "STACK™s PROVIDING IT ALREADY WA NOT. BEEN DUMPEDs 00000380 «| @ 
“WILL BE DUMPED STARTING AT THIS ADDRESS AND. NUL & 00000390 teks peat octane 
200(DECIMAL) WORDS BELOW IT HAVE BEEN PRINTEDC TRE erie ‘Ts 00000400 #2 
ASSUMED TO BE A CONTROL STATE STACK FOR PURPOSES OF STACK 00000410 : 4i@ 
ANALYSIS). SHOULD MCRE OR LESS STACK SE DESIRE» ThE AMOUNT 00000420 eee ath os . ja 
© EN DECIMAL) OF STack TO ANALYZE CAN “BE ENTERED” INTO PRT CELL 00000430 “ 
| areoCT ALD ‘USING THE. "IN" MESSAGE® 00000435 .@ 
IN MOST CASES» THE TOPROF*STACK VALUE | ISED. (MAY BE THE SETTING 00000440 _ ow 
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OF THE "*S™ REGISTER TAKtN FROM ThE wISPLAY PANEL AT THE TIME Q0000445 
ia THE HANGe IF NO TCP” OF"STACK es) SPECIF ILD THE ANALYZER WILL OBTAIN 00000450 
K 2 SONTRO OCcAT N Ao eee j PORENOSS Shenae wera 
OBTAINED IN THIS MANNER” Is GENERALLY OF INTEREST? ESPECIALLY WHEN 00000452 
LINKS HAVE BEEN CLOBBERED,. 00000453 
; 00 0 
Be THE RIGHT@MOST 3 DIGITS ARE INTERPRETED AS UECIMAL QIGITS 00000460 
AND SERVE is SET THE laa OF ie ee OPTIUNS, GENERALLY 00000470 
A, IN ARE nT IRA 6 PF i Ny 0OQ0¢ BO 
OF ONE ANOTHER AND MAY THEREFQRE BE USED. ADBITIVELY, THAT IS» 00000490 
THE COMBINED FUNCTIONS OF COMMON - VALUES 2216s 38s AND 64 00000500 
‘ QB NVOKEO B " MMO " 6 a _ 
TO THIS RULE WILL BE ELABORATED AFTER EACH COMMUN OPTIUN IS 00900520 
DESCRIBED IN DETAIL. 0Q0u0530 
SUMMON CARY OPTIUNS 
0g0U05§5) 
NOTE: IN THE DESCRIPTION oF EACH OPTION» IT 18 aSSUMEOD THAT A 00000560 
TANDARD ME MOR Diu MF AN L Ob A FN Ef) ow , * weiy s () # 
DIFFERENCES GENERATED BY THAT FARTICULAR UPTION, A “STANDARD” 00000580 
ANALYSIS IS ONE OBTAINED wITH wO COMMON VALUECTI. Ee COMMON=0). 00000590 
09000600. 
COMMONS0, 00000610 
YTELOS A STANDARD ANALYSISe AN MCP/PRT FILE IS REQUIRED. 00000620 
COMMON=1le 00000630 : 
YIELOS A "SPLASH" »UNANALYZED DUMP OF MEMORY? NG MCP/PRI [S 00000640 
R RED A "COMMENT" NTE R waa one tas 
IS ALSO PRINTED, 00000660 
00000665 
LM Nw 2, 
“DUMPS ALL AVAILABLE AREAS. 00000680 
000U0765 
OMMONS Oog00 
EXCLUDES ALL NORMAL STATE OBVECT CUBE. 00000780 
THIS. INCLUDES ALL PROGRAM SEGMENTS ASSOCIATED WITH A 00000790 
MIX NOFX AND A NTRIN Mi A OoO008O0 
00000815 
COMMON=8. 00000820 
x MCr (lt 00000830 
00000845 
COMMONS ae 00000850 
R N ARRA D BY TK BR 0 8 DUMPED 00000860 
SEE THE COMMENT AT SEGUENCE #0080746U FOR DETAILS, 00000870 
00000875 
OMMON= 0¢ 
INHIBITS THE DUMP OF THE MCP PRT IDENTIFIERS SORTED: 00000890 
ALPHABETICALLY ANO BY PRT LOCATIONs 90000900 
; 0000905 
COMMONS 64 00000910 
YIELDS AN OCTAL*CNLY OUMP OF MEMURY FURMATTED 3{Xx RORve Cranes 60000920 
N00009 
COMMONS128,— 00000950 
Tees AN ALPHA/OCTAL re OF MEMOR Ye PACH PRINTED LINE 00000960 
we ONG "OUR WORDS Of QO OLLOWED, ON THE SAME BY. 00000970. 
THEIR "ALPHA EQUIVALENT. 00000980 
00000985 
OMMON = 6 t 
ae LAST PATCHED: 22/11/73 00000999 
: YIELOS me ALPHA DUMP OF. peal SE sichelel Ocoee oe woRDS 00001000 
ab iP RYN 1 O00 O:1.0 
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NOTE THAT IF THE CONTENTS OF THIS cCeELL DOES NOT CORRESPOND TO A 


00001015 

COMMONS 10% QOVYU1L020 
a ~ 3 | P Ni -NIS 0 MUR es QOQU10 30 

THIS OOES NOT IMPLY THAT MEMORY 1S NUT ANALYZEDS VERIFICATION 00001040 
OF MEMORY LINKS IS MADE» THE BED AND SLATE ARE. CHECKED,» 00001050 
LAC K. ARE UC A D é : 000010460 
00001070 

00NN01072 

MM ON ss Q ‘ 
CAUSES THE CONTENTS OF THE "ARGH" ARRAY TO BE PRINTED UP TO THE 00001074 

LAST VALID WORD POINTED To BY "YECH" THIS INFORMATION [S PRESENT 00001075 

ONE NHEN AN MCP - HE "ROTO" PA 4 HAS BE 
MCP, 00001077 
00001078 
: PR ’ A a.  y R zai - meas nae a AL ; MS 

00001085 
NOTES PRI LOCATIONS SPECIFIED REFER. TO OCTAL el LOCATIONS FOR 090001090 
en AN Tt OHOO G0 
| . 00001110 

_ PRT 25. 00001120 

: NORM A SE M eT 1 ‘- = QO O 
APPEAR ON. ‘A COMMON CARD} HOWEVER? THEY MAY BE SRPUIEITEY SET 00001140 
eek. MOOIFIED DURING EXECUTION OF. THE ANALYSER VIA THE "IN" 00901150 
ie a¥a & 66) 
00001165 

PRT 26. 0000117C 

= C. AN SED NAB A 2 w= Ye M Lao Mi" i RO 

TO -A NON@ZERO DECIMAL NUMBER EQUAL TU TRE mIx INDEX OF A JO8 IN 000011490 


00001200 


QOc0U1220 


permenant £5 OCG GY - 6 Aieaae ee ren ee EST Oe Oe 


VALID MIX INDEXs *NO* NURMAL STATE STACKS WILL BE OUMPED NOR 00u0d1z230 
A te AN NORM, A AKE p ASSUCTAT AN MIX NOX 6 OQ0¢ Q ae Pec Te NY an nd 
PRINTED, ~ . 00001250 
ag aS “ag 00001255 
PRT -¢ a ‘ 7 0000 60 ore 
THIS CELL MAY BE [SED UNLY JN CUNJUNCTION WITH THE 00001270 
PREVTQUSLY DESCRIBED COMMON CAKD CONVENTION OF ree Ne AN 00001280 
0 A AD t LG OMMON A 00 290 eT ee ene 
ee ene o MADE. RONRZ EROS THEN THE DECIMAL VALUE SUTcEEe IN CELL 27 00001300 
Oe Wb e yee Ne THE AMOUNT OF STACK OUMPED BELOW THE TOP*OF «STACK 00001310 
WAR UE ZERO» THE DEFAULT AMUUNT CF STACK CUMPEDC AND 00001320 ata el 
ANALYZED) WILL BE 200(VECIMAL) WURD Se 00001330 
00001335 
PRI Q oe. 00001340 Seen 
oo THIS CELL IF SET TO 4 WILL CAUSE THE PRINTOUT OF MEMORY 00001350 
o BE COUReR Serer ete OTHERWISE» Ane PRINTOUT is SINGLE*SPACED, 00001360 
: : . OO Wf § ote oe sce na 
PRECEDENCE CF UPTIUNS AND SUGGESTIUNS FUR CUMBINING THEM 00001380 
: 00001390 
A TA AR Ro» N -TIONS maY & Sku SEPARATELY 00001400 Bey eco ate 
COMBINATION. ALTHOUGH MOST. COMBINATIONS | ARE ALLOWED» THERE 00001410 
PORTANT EXCEPTIONS: THE. RULES ARES. 00001420 
fe COMMON VALUE OF 1 PR IDES THE USE | OTHERS» 00001430 ee: 
20 A COMMON VALUE OF 512 PRECLUDES THE USE OF “ALL QTHERS BUT ie 00001435 
3e A COMMON ee OF ti Aaa THE USE UF ALL REMAINING 00001440 
COMMON VALUES P AND 3¢ NG THAT 3864 [5S [hE 0006 0 & 
sum, OF: 1284256, . : ; 00001460 
4 COMMON WALES. 2089 16> AND 32 ARE TOTALLY. INDEPENDENT. we 00901530 
IN: POSSTALE com Na ATIGNS. 2 00001540 
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ocuu1550 
SOME SPECIFIC ExaMPLES UF CUMMON UFTIGNS 000U1560 
aa Et O0O001565 
Ae "COMMON=35721432", 00001570 
THIS CAUSES A "STACK" AT 3572) TU BE DUMFED ALONG WITh 00001580 
th NONE vj Mi =! i ¥ a fy FR () 0 YO 
TDENTIFIERS ARE NOT PRINTEDOC32)5 AND SELECTED ARKAY § ARE 00041600 
DUMPED( 16). THIS COMBINAT LON oa BE. USED Ie PROVIDE a 00001610 
MINIMIIM () ‘8 R AM 1 A K N ny ZE i O00 
AFTERWARDS FOUND TO HAVE MISSED A STACKCIN This CASE. 00001630 
‘LOCATED NEAR ADDRESS 35721). 00001640 
™ “COMMONS bal Sa he SN ae 
THIS ELIMINATES ALL OUBYECT CUDE FROM THE PRINTULT UF 000u1660 
MEMORY, OO00C1L674U 
COMMONS 66" __OOUULTH9O . Bete ee ee Od 
_. THIS ENSURES THaT AVAILABLE ARLAS ARE aL WaYS PRINTEDC2) 00001700 
- AND PROVIDES THAT MEMORY 35 PRIWTEO In OCTAL FORMAT ONLY( 64), 00001710 
D WCOMMONS&* O00 e 
THIS TOGETHER WITK PRT 20 SET TU A VALIC MIX INDEX REDUCES 00001740 
THE. AMOUNT OF QUTPUT CBTAJNEU OUR ANG: A MIA@UNLY UUMP. vO 00001750 


THOSE RELATING TO THE MIx INDEX BEING DUMPED, FINALLY» TRE GNLY NORMALGOO01770 
STATE STACK DUMPED IS THE ONE BELONGING To THE PARTICULAR MIX 00001790 
AD 9001809 
00001900 
PROCESSING MULTIFILE QUMP TAPES 00003000 
THE ANALYZER WILi AUTOMATICALLY PROCESS, IN A GIVEN RUN» ALL FILES | 00003010 
See "DOPMT" TAPE IF LABEL EQUATION Is MADE ‘0 ANY pike Bere ue Be ee ee 
3 fi H ORDER ANA 0 0 A H 00 030 
EXAMPLE» IF LABEL EQUATION IS MADE TU THe FUURTA ies "FILE MDUMP= 00003040 
MEMORY/DUMPOO4", THE FOURTH FILE IS ANALYZED THE THIRD NEXT» 00003050 
E OND AF R HA NE AK HE FURS 7 AS FR 59 : A 00003060 
NEW FILE IS BEGUN» A MESSAGE IS WRITTEN 7 THE CUNSOLE SU THAT THE RUN 00003070 
“MAY BE OISCONTINUED IF NO FURTHER FILES ARE TO BE ANALYZED. 00003080 
— 00008090 
A COMMON VALUE MAY BE INCLUDED IN ThE COMMENT FORTION OF THE CO003100 
REMARKS ENTERED AFTER A "DPMT" CUMMAND UK AFTER KEYING IN THE UNIT 00003110 
HEN N H EMORY DUMP DECK TRE SYNTAX I5$ "COMMONS"<CUMMON VALUE>00003120 
» WHERE "COMMON" MAY BE ABBREVIATED AS "COM" ~aND MUST BEGIN NO LATER 00003130 
THAN THE 140"TH CHARACTER UF THE MESSAGE « A COMMON VALUE ENTERED 00003140 
N. MANNER OVERRIDES AN PPLIED BY LABE Qua QQ003 
ONE EXAMPLE 1S? "DPMT COMMUNS365 ALL JOBS APPEAR ASLEEP," 00003160 
00003170 
or QOGVO3B0Q 
BOOLEAN COMMON; 009003900 
“A NTESES PRTG} DEFINE ENEMAS ERT eot) « FOR DUMPING eg ONE 08 00004000 
e a N 2PR ’ KADK OO004100 
BOULE aN PRT30} DEFINE niga SPacks Pri 3083 % DEL@SCACE DUMP OF MEMORY 00004200 
BOOLEAN PRT313 & noes 00004300 
BOO A i\ P KR i ‘ N A ~ RK 0 A 
INTEGER WVSTACKADRIS IF COMMON: GTR MAXCOMMONVALUEs IT PNTS TO A STACK Q0064500 
DEFINE DUMPAVAIL= COMMON. C4G21)83 & CUMMONS2. DUMPS AVAILABLE shinee 00005G00 
DEF. ‘NONORMALCODE =COMMON. [4 #3% COMMONS4 DONT DUMP OVE00006000 
DEF INE NOMCPCODES COMMCN, C44t1)]#s% B=DONT DUMP MCP CODECTYPES Le MTX= 0) 00007000 
DEFINE DUMPTABLES=COMMON.(43!1)#5% 16=30UMP sheer ARRAYS 00008000 
DEFINE DONTBUMPRT=COMMON gi, iss aCUMMONS 32 STOPS DF 00009000 
DEFINE OUMPOCTALONLYS COMMON, C41t1]#3% SANUNGORDITIONAL OCTAL ONLY DUMP 00010000 
ee DEFINE ‘DUMPALPHADC TAL =COMMON. Cotbed 12es0UMP MEMORY IN ALPHA/OCTAL Qo011000 
_ DER INE niiMes AUN fs COMMON ay 2 2S6s HUMP MEMORY. IN: ALPHA () NV. ore O00 
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DEFINE NODUMPSREAL (COMMON) 6(39!2)2343% 384=0M]T LUMP OF MEMORY 00012500 | 
@ DEF INE DUMPCESSPOOLONLYSCOMMNN. [3621 4#5% 21250UMr UNLY THE "ARGH™ ARRAY 00013000 e 
D N MA X MMON VA OC OH000 a BS AO inset is ee 3 me 
“FILE IN DISK DISK SERIAL "MCP" "PRT"( 203033 | 00046500 
@:: FILE IN MDUMP 2(26533)3 % DISK=533» TAPE=513 00016510 _ 8 
: [Spo a —__ O00 16520 Ste Ee a Soh Sh tS pecs eo 
FILE P 4(3015)3 00016530 ‘| 
eo): | PRUCEOURE PRINTCOMMONVALUESS 00017000 -@ 
R 10 010 Bo ial Sa nee ee aes 
: “INTEGER 13 00017020 ‘ e 
@ SWITCH FORMAT COMINFO: : | 00017030 
HE OM M0) Ny b f ; ARE 2 tt ‘ y ete lap aes 
CYCOMMONZO YIELDS A STANDARD MEMURY DUMP AND ANALYSISe")> 00017050 
@ C"COMMONS4 YIELOS A SPLASH UMP WITH NU ANALYSIS.")» 00017060 @ 
"COMMONS 2 PRIN ATL AB abt OHO Bs dic 2 pare eee Pat . oe 
— €MCOMMONS4 OMITS NORNAL STATE “CODE SEGMENTS 6 "2s 00017080 al 
@; Ba (mCOMNONeS OMITS NCP CODE SEGMENTS" )y 00017100 @ 
a SCUCOMMONEL A AT R DEFINED. ARRAY BE PRIA Dia? 000 0 : sata eactinets, & Peer | 
C"COMMGNS32 OMITS THE PRINTING UF THE SORTED MCP PRT IDENTIFIERSs")#00017120 Pt 
e CNCOMMONS64 CAUSES MEMURY TU BE PRINTED ENTINELY IN OCTALe")» 00017130 @ 
, "COMMONS128 MEMORY TO Be PR "NEIRELY IN ALPha/sOcTAL e")»00017140 er ee ath 
C*COMMONS256 CAUSES MEMORY TO BE PRINTED ENTIRELY IN ALPHA.™), © 00017150 4 
Or CPCOMNONS 384 CAUSES NONG OF THE CONTENTS OF MEMORY 10 Be PRINTED s")2 00017160 \@ 
"COMMON: a CN 'N oe 98; JAR A OO} j atts 2 st 
o7- C"FOR ADDITIONAL INFORMATION: CUNSULT THE FIRST SEVERAL "» 00017180 a 
2 @F "PAGES OF THE FILESSYNBOL/DUNPANL.")3 0u017190 @ 
g OR [250 D0. WR | OOU 1720 A ns Ra EE rts 0h ee oo 
a ails END PRINTCOMMONVALUES3 ; | © 00017210 @ 
2 OF BOOLEAN DONTPRINTLINKS»MYSTACKOUNPEDS 00018000 : 

Sa {tet le" END OF DUMP ANALYZE "s,uormenyyg 0 ggoe3o0g wie 
a INTEGER PRTMAX» INTMAXs INFOMAX3 00024000 
Or DEFINE PRIBASE21294;%FIRST PRT CELL ALLOCATED BY ESPUL 00025000 i @ 
, DEFINE ACTUALPRIBASEsii2#3% FIRST PHT CELL AS PEK MCP DEFINE 00026000 ee 4 

: (DEFINE PRTSMAX=100#; X% UPPER LIMIT UF PRTS ARRAY 00027000 my 

e REAL LEVEL» SUBLEVEL» VERSION: | 00028000 '@ 
Nigock ik: ’ ne N A at 5 er n py ¢SPoC QO0029000 Se tee ee ee ow cal 
INTEGER ‘NAMESIZE> NAMSSIZE$ 00030000 4 

e DEF INE NSNAME (NSNAME 1 J=NAME (VSNAMEL J [H110].87 : Gu031000 “@ 
6 J R NAMSSIZFE3 0003200 ae Ee Ns awe 
“DEFINE. TSNAMECISNAME 1 JSINAMELISNAMEL)« Ler10)}4 00033000 y 

or ARRAY SEGZERO(01291; ~ 00034000 «@ 
BOOLEAN MCPS FILL/PRI DETERMINED wHt MODU WERE INCLUDED Q: Se ee : acai 
STREAM PROCEDURE MOVE(S*0>W)3 VALUE 43. 00036000 | he 

e BEGIN SIt=S3 OD1:503 OS:= w KOS > END MOVES 00037000 @ 
PROCEDURE BUSTCOMMON; 0UU40100 ; eee eee, go ‘eg oe 
: BEGIN Fe ee eee he | 4 

@- : REAL MY 203 : 00040420 : “@ 
030 00040130 ede ect, Sats gs : 4 
FORMAT FCYR"9159")"ox1 0) 00040140 Ve 

@ REAL STREAM PROCECUME UCTDEC(C)# VALUE C3 00040150 a) 
‘ ; 0 OF 00040 me as Fhe 
Mos "BOOLEAN STREAM PROCEDURE. NOTSOCTADES(C)3 VALUE ee 00040170 | ; 

on BEGIN STeLOC C3 SCIF sc GTR m7” THEN BEGIN TALLY*1 JUMP QUT 00040180 | @ 
His Page oy 43 nwoTSoct ap Y FADE - 00040190 : ict taacin aonitnspan tl eigenen 
el il STREAM "PROCEDURE TAECOCTID: U1ed2)3 VALUE D3 00040200 2 

a i BEGIN SI*¢LUC Os OleD1suSeSUCTs UT e023 DS¢30CT ENDS 00040210 3 @ 
aE Nat edotagescoenctorcc commons THEN: Oetatagies. 00040230 | a 

a) DECOCTCOsmY, COMMON} } es | eS 00040240 «@ 
Ya O TWEEN: MYSTACKADR ew? FL SE LE obs a: , ee cone ‘ HO0d0980.- Ria 8 7 My 
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ARRAY NAMECRRTBASE tPRTBASE+NAMESIZE "113 


OO085000 


REGIN % CONVERT FIRST § DIGITS uF CLM AS TIF THEY WERE OCTAL OIGITS 00040260 
WRITECTC®] Fa MYDS 00040270 
REAL x 2TACKADE te ee OO A so tart Sate ee a a le is 
END3 00040290 
END BUSTCOMMONS Cee 
R Nu B REANARRA iR ANAME » BA ; O0 OO Lee 
VALUE WORDSIZE BASES” aeveoas 
INTEGER WORDSIZEs BASES 00043000 
ARK S ANAME [ #13 é 000 
BEGIN 00045000 
PU ESEE 1sSEGSsN> 00046000 
ARR B 0229 she ee ae PO aw I ett eee 
NtsWORDSIZE MOD 363 00048000 
SEGS: a ORD S ETE S eS? GLV 30- 00049000 
FOR Tred STEP 1 UNTIL SEGS Qu 00051000 
BEGIN 00052000 
2 READ CD Kp: BUF YL * 4 009053000 ee I a tee es 
MUVECBUF*ANAMELBASE+30XIJ91F 1] #SEGS UR WEG THEN 30 ELSE NDS 00054000 
END# 00955000 
z NB WR : PAG ; Pol "HASFs" AAGOO 25 a 
1S." “S1ZEa"s15>s BASE WORDS IZED} FOR Its BASE STEP 1 UNTIL 00057000 
BASE*WORDSIZE “1 CO BEGIN MOVECANAMEL 1)e8UFCO},1)3 00058000 
R : * NO ENDS 00059000 Beans, tices ish Beas 
END OF READARRAYs QUVeQ000 
BUSTCOMMONG 000601000 
MM 3 G OP NSeUSE"(MIAIINES" AND/OR COMMON CONTROL CARDS ogvo3Q00 Se ete ate Fh ee ld nll Sg 
IF. COMMON THEN NAMESIZE*ENAMSSIZELFINAMESIZESSINAMSSIZES FL ELSE 00064000 
BEGIN 00065000 
READARRA ZEROCwJe0)3 009066000 Te eae ir eae 
CLOSECDISK)3 00067000 
LEVEL Ss"2"3 & 1 DIGIT 00068000 
tat we OY ¢ e' OO ee ener ey 
VERSTONI2"8"5 x 00068200 
COMMENT EACH TIME ANALYZER IS CHANGED INCREMENT ALPHABETICALLYS 00068300 
MCP 22 ROOLFANCS =1LIM ONS on069000 oD hee tas 
NAMESIZESSSEGZEROL2I413% t OF “ACR PhT CELESCABCVE @200) 00070000 
sie Aaa eat nega # OF wOkUS Tre MCP IGENTIFPLERS OCCUPY o0ud71000 
NAM : ae RIN 00072000 Serene 
INAMSSIZE! @SEGZEROLS 13% # GF WORDS TRE INTRINSIC IDENTIFIERS OCCUPY 00073000 
ERD. SEGEEROSTUFF) 90074000 
; ON one OO 0 tae 
% 2 % % % g ¥ % ’ 3 % ¥ & INNER BLOCK BEGINS & ¥ Ba &@ 8 48 OR XX & 00079006 
BEGIN 00080006 
B PROG O0080400 ner 
CABEL RESTART sXXx3 00080500 
eee. 13 04y081000 
os OOOR2000: 8 es Sg 
REAL AUXTYPES 00082050 
BOOLEAN SGLTOG; 000821006 
BOALEAN NODUMPTOG; 0008 Q - 
~ BOOLEAN Bere EEA TENG? AEA Ae 00082150 
ARRAY PETNAME LOS Hai 00082200 
ARRA PNAM 00082 Q oats carer 
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@|: REAL VQBNUMs VREC 3 0uv¥3000 e 
NE STAXMAX=80% 3% 00094000 eee) aie 
SHRAY STAXTOLSTAAMAX@113 INTEGER MAXSTKeBEDSTKS ouu95o00 
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AUXDATA = PMTSL4S/ 4» 0U104410 
AUX CODE = PRTS(4Alas, i416 i ie Eo Sa OE llphtled aE 
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b Ae & PRIS(51 12-2 iataes _O0164450 Le Ne a CN eR ore TEE rn 
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"INFOMASK"»"2 ",0922>» % 40 00212955 
MCCMASK1 "20209225 & 81 00¢12960 
" ¢ hed - he " ¢ 2 Y) bs ys i Q Q 2 l2 96 5 me ee rT CD Kr Ns eee te 
“CORE “p00 0022, & 83 00212970 
"OLSKQUNT»0s0%23, B AY 00212980 
"EUW "*sO020e22s % ad 00212990 en 
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penne AND COMPARE 1T WITH THE UNE GIVEN IN "INFO", IF AN 00347000 4 @ 
IFIER CAN NOT BF LOCATED IN "NAMS"> THE "PRTS" ELEMEN 00348000 = fl 
LEFT UNCHANGED==OTHERWISE» THE aDDRESS GBTAINED IS STORED 00349000 Jac 
IN TEATS vs Be epee ei, ne wean eee On Tan ree 00350000 | @) 
: j 00351000 _ _ 9 
“INTEGER” STREAM PROCEDURE IDLENGTHCA)s . 00352000 49 
BEGIN LOCAL: Ls STts_OC Ls Olswas oi 00353000 of @ 
"3CTF BSCBDC THEN JUMP OUT ELSE BEGIN TALLYt#TALLY* cs 0035400¢ ; |e 
 S§Itatac 4 END): IDOLENGTHI=TALLYS 00355000 52 
END. IDLENGHTHS 00356000 Aj@ 
___ FILLING O3 00357000 Tepe ts tans fsa 
FOR TS TEP 4 UNTIL INFOMAX 00 - ' 00358000 65 
Lo ! DE ENG TAC INEGET) 1280 THEN ELSE. sears ee 00459000 (@ 
CINFOL: DEO), 393 KLASSIwINFOCI43)]4 00360000 ee 2, anh 
e® ® 
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@e@0oe37we#eeee 


TABLELOOKUPC(ID*LUC)s 00301000 


PRTSCI/4)%=1F LOC GTR g THEN LUC ELSE PRTSCI/4) EWDS | 00362000 
KL i=03 SSR rc aeenrmens. OF See Walk, LOY € ¢ aac ee eat ae eae eee ee 
IF PRT32eC46%1) THEN FOR I#3Q STEP 14 UNTIL PRTSMAX 00 00364000 
WRITE CPs <PPRTSE"s 139% 3a "“sl4asloPRISCI1)3 00365000 
ND of y: A ) OO 366000 pated cai Mita Seon 
BOULEAN STREAM PROCEDURE BITONCWsB)s 00345000 
VALUE. B3 003446000 
BEGIN 0.0.4 N00 ae are eae 
SIseWs SKIP B SB; ~—600398000 
IF $8 Uae TALL Yie13 : 00399000 
BITONI = Sea oe Oe. See OR erty ee CRORE EE MVS 6115172 68 5 | 2 a a a oe eC eee ee 
END OF aITONS 00401000 
PROCEQURE NEXTITEM; 00402000 
B N fe SOO 0 Oe es et ee a Oe 
WRITECP)3 00404000 
 WRITECPCOBLI»STARS)3 00405000 
J END 1 B00 ate tae A ena ie eee 
PROCEDURE PRINTMCPOPTIONS3 00407000 
BEGIN 00408000 
R i DB M DUK d at ieee SE Sh Sut ad 
FOR. Pie (ts0plSs1050 5s 4;5ees2 0649s 1eeAv Ten Oee. as po 00410000 
otis RBITONCMCP®47@]) THEN PETTERS A GRer UCT 9 00411000 
: os oi: O06 eneze a et 
END OF PRINTMCPOPTIONS3 0¢413000 
DEFINE DATE =(C119) 8» 00414000 
C1 -O.C 1 P20 i guasoog 
XCLOCK =(121)43 00416000 
aeoceen ARRAY MODONCOS7)3 00417000 
ARR PLOsojs ; ata ena 
ARRAY RTOLOtS]3 § 00419000 
DEFINE TIMEANALYZED = 1TNCO}4#s 00420000 
DA ANA ZED = D f 004 ¢ oke ee tee es 
TIMETAKEN = ITOC2)#,> 00422000 
DATETAKEN @ LTDL3l#, 00423000 
TIMELASTH = {TOf4)¢ pate SOOM ORO G: 5 he ey ee: 
SINCSLASTRL = ITNC5)&, 00425000 
MINUTES = 1TOCO]#>» 00426000 
SECONDS = LID(7]#, 0042/7000 ee Se 
~ PAYS = ITD(&)#, 00428000 
YEARS = ITOC9I8;3 00429000 
DEF LT DATX =. RIDCO] : 00430000 ee 
XCLOCX = RTIDCL)]4&> 00431000 
CLOCX = RTDO(C2]#>» 00432000 
MP _# RTO ae 004933000 Baath ot sen 8 
ae ~ KINDS = 7 ~BORTOCA ae. Bg 00434000 
ES ane _MCPVERSTON ; # RTOCS14#; 00435000 
“OR RM ALU i a " DF: AB Ah UW ail gy at dal § o43 6000 2 a __. ie te a no 
"TIME ANALYZED "STD" eT 2p "E> Teds 00437000 
Re ceoee yada NUMBER "sTl2/ 00438000 
A ws OO4I9N00 ss 
At PICEA TOSTSY 00440000 
: MCR VERSJON NUMBER. PeAlenes Hea 00441000 
"BA “TAKEN ” wee e"*Ne le 4. a 00442000 | iis eh 
"TIME TAKEN Me 12e"8"y129"t"sT2)o 00443000 
PMxa CT INE OF THE LAST MALT*LGAD Pe lgemitelestrsl2y» 00444900 
- SINC") AK YSTEM "“sA ; 0444100 a th 
na Ey POSKC ANS FILE CONTAINING DUMP. 1s MoAb sAGo "2 Sa ANDRE)» 00444200 
es 00444300 
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00444400 
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FMX3C"TIME SINCE LAST HALT®LOAD “oles"i™, forse] 2)5 
FORMAT BADBED (Manet exes BAD BED ENTRY wah wat eee uy} 
ORMA ADDA "BA ATE TAKEN oa) 2 
BADXCLOCK C"BAD TIME TAKEN eeege Me 
CADE RE UnenG TIME OF R/GM IS ae. 
UO RM RAD *WORD 3 RA AG oF N La 
PROCEDURE TIMES CWHEN*HRS»MINa SEC)S 
REAL WHENS INTEGER SEC*MINe HRS 


INTEGER 2 
ae WHEN LSS 0 OR WHEN GTR 5184000 THEN HRSt=MINGBSECtS100 ZOVERFLOM 


R - 
2 aha A 


HRS3=T DIV 2160003 
MINS=T DIV 3600 MOU 603 
= [) 40 MON AO: NOG 
END OF TIMES PROCEOURE; 
-EROGE DURE GRTES CADATES MQNTHEDATINEAR D2 
iy ADA 
ALPHA ADATES 
INTEGER MONTHSDAY* YEAR 3 


REAL YeDam; 
LABEL ONS | . 
AH: RA 5 - () i 


STREAN PROCEDURE CONV (YEARsDAYsDAT )}~ 
VALUE DAT 35 
—$tt® LOC DATs 
SI ts SI 433 


Op ts AR D 20} 
DI ts3 DAYS DOS ts 3 UCT; 
END3 
UA AH 


Or 34059090, 1200151918 ]> 2129 203027 3s 304s 334) 

CONV CV sO e ABATE D+ 

i uid i BN / al 

BEGIN 
IF D =6C THEN 


- .. A 
Mots 1% GO TO ON; 
END? 


ENOs 
FOR M t= 0 STEP 41 UNTIL 11 DO 
__IF DAYTABLE €M] GE@ D THEN GO TO ONS 
Cot ee AQINE ; ooh ee ne : 
MONTH Sa M3 : 
IF MsO THEN D%$s0 ELSE %G0 AHEAD 
DAY t= D = DAYTABLE[M@4]3 
YEAR isyY; 


. 
ND 0 PRO DUR oF 


INTEGER MAXMOD+MAXCORS 


RE TABLESLOO) es Hc a ah 
hid ft fi NA LEA OMOKF se SOMOKB S.. 
% UTILITY PROCEDURES 

REAL POGOe OCTALCN)34 
INTEGER NOR | Sala 
C1t23200° $0. THAT a cont 


O87, A WALEWORD THEN 
ORMAT. EWER 


00445000 
00446000 
004470 

00448000 


00449000 


00450000 
00451000 
00432000 
0045 300 

00454000 
00455000 
Hpassnnon 
00457000 
004348000 
00459000 
00460000 
00461000 
no#e2no0o 
00463000 
00464000 
00465000 
00466000 
00467000 


00469000 
00470000 


Se a ee 


00472000 
00473000 
GOs onere 
0047500C 
060476000 
00477000 


00478000 


00479000 


OO480000 
06481000 
004862000 
00483000 
00484000 
00485000 


D > 60 THEN DtsD@13 a 00486000. ae 


00467000 
00488000 
00489000 


“00490000 
00491000 
00492000. 


00493000 
00494000 


00496000. 
00497000 
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00530000 
00531000 
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‘ Bhat Sale tee ce ad ot, Sh ete cet tee | ee 
% WILL BE THE OCTPL REPRESENTATION CF N 00334000 
@ OCTALE=N, (45331 CTF N>7 THEN GCTALCHheC2dt21)) ELSE C)E3#9%39)5 00535000 @ 
Fe a 1M PRA DY HR a) A P NG A ss 00236000 a Me OA pate ae sheen at 
. VALUE SKIPPINGs MANY 3 % 00537000 
® % RETURNING THE 7 OR LESS CHRS REQUIRED 00538000 ‘1e 
Le \ NOS 39000 ane ; 
SILSATS STS=EST+SKIPPINGS 00540000 ‘ 
® DIt#LOC CHRS$ Dot=6 LITMONS UIt=DI=MANYs 00341000 “@ 
=MAR Hi DOO eectee se e eee | 
END CHRS3 , 00543000 
2 INTEGER PROCEDURE HIHALF(LOC)s 00544000 e 
INTEGER nary % 00246000 . 
rT HIHALF tSsCHRSCMECLOCeKOW*LOCe COLI] +05 4)3 % 00247000 @ 
s R RO DUR HA ; 0.0 BOOO ee S ee eT a ee 
VALUE Lace 00949000 ' 
@ INTEGER LOCs % 00550000 |e 
“Owa LsCHR M ‘ KO i al 4 ; 0 DOO 2 LN ie ae 
BOOLEAN STREAM PROCEDURE FLGBIT(WORL)3 00552000 Z| 
e” BEGIN 00553000 @ 
S=WORDS a a Be SSO ee rs, re A 
IF $8 THEN TALLY#s13 &% | 00555000 he, 
teTALLY; & 00556000 a 
FLGBITI=T ; 556 @ 
A TR PENI ee ee Te aE AREER 9 0])> So L001) SR eee ee ee ea Le TTS co eR tel 
ARRAY THISROWsLASTRUALO! 11]3 % 00558000 : 
@' SAVE ARRAY ALINELO?18]3 00559000 "@ 
ARRAY BLINELOL18 cate a es Me ee eh So OO SER OSU: ee eile 
P BOOLEAN NOTPRINTCALL +» AVALNK3 00559100 a 
er BOULEAN STREAM PROCECURE COMPAREWORCS(S»DeW)s 00560000 in@ 
i Sed Wie ek A a a Ss | beset? 
i BEGIN 00562000 ei 
en LABEL XIT3 00363000 re 
=53 =D Pac ert ver Tn VOOR T 4 > 248, 
WCIF 8 SC NEQ@ DC THEN JUMP GUT TO XIT)3 00565000 
eo”. TALLY3=13 00566000 \@ 
‘ OMPARFE WORD : OOS@7000 ae es 
END COMPARING WCROS; 00568000 u 
i % 00568100 “@ 
i 0 NE PRIA RIN PRINT? )= NO PTE 5082700 Soba tht le ihe: hes paee a 
i : PRINTCORECPRINTI,PRINT2)#3 eoroeaee 
eo, | % j 00568400 1@ 
; < PROCEOURE- PRINTCOR ROM O23 00569000 ois Banna 3S . 24 oul 
VALUE FROMsTOOS 2 00570000 eo 
® INTEGER FROM, TOU; & 0v3/1000 “@ 
of: ee DEFINE FOR] = FOR 1 '® @ STEP 1 UNTIL Z1 DOSS & 00573000 | i 
@ “ DEFINE OCTADE = (OSte3 cect atl. Sé THEN DSteSET ELSE 00574000 “@ 
nea HS isk 00575000. tile Te Gh wet ten ts ote bie Be pagel 
STREAM PROCEDURE BUILECFROM*LINE sXAsNAsXBSNGsNCPAL AQ)? & 00276000 ne 
® VALUE FROM/NADNBSNCs AL» AOS X | 005/7000 i@ 
N  OLSSLINEsSLse1 QC FROM; S1t=51+5;59KTP 3583 00378000 ee ne ae en ee ee _ | 
* OCTADES DS t® LIT " "3 AQl ST am XAS & 00579000 
or. NACDSESLIT™ "s2CDSHSLIT® Me QCTADED 25818 exBs 00580000 7 4@ 
NR ¢OSes w M390 Little see NCTADE. 00581000 See s 
i "NCCDStA19LIT™ ")3 DS#aLIT™ ")3 & . 00582000 
@; ALCSI$#XAFNACDSE=UIT" "Z0St=8 CHRIS & 00583000 
i" a "w tee : ‘ fe ass 
pp NCECOSEROLIT® "D3 DStRS LIT") END AULLOZ & ° | 00585000 
bad a - STREAM "PROCEDURE MVC AB )3 BEGIN STtRASD1E=B50818 wos, END wa 00586000 
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a eh en es Pe es | sea! ooh 
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BEGIN NISSBLINks 18CpSte8LiT" ")s ULSSdeI Nes D1 tsDl473 00566110 
SIP=AL INES SLtsSI+73 00566120 a 
B OcTAD t= j Sizes A —OO886430 sacar rites 
END EXPANDS * 005866140 
BOOLEAN MATCH, FIRST »LAST»STARD: , 00587000 °@ 
N 7 R NTS OOS RRBOOO ahh ERE nee Tia ds Sa oe wD ee WEA rede ; . 
BOULEAN haace INTEGER odie % 00589000 i 
LABEL EDITLINE: 00589100 ‘@ 
yl. ¥ “NAL SFT 0Q5900Q00 EF asprin Soe oe! 
IF BUMPALPRAACTAL THEN AOt*TRUE ELSE 00591000 . 7 
IF NOT DUMPOCTALONLY THEN Ser 00592000 @ 
aaRFaA p NOTPRINTGALL THEN LINKTYPE FLSE 00593000 Bes ee eet cee hn sede 28 gees at 
. TYPMAX41]) GTR O AND AVALNK THEN ELSE 00544000 . 
IF 1s2ABS(I)=3 THEN ALE STRUE ELSE 0u594100 e 
HEN AQ¢=sTk OO as i DB re ee 
Zite¢zislF AL THEN 12 ELSE IF AL?2a0 THEN 4 ELSE O"13 00594300 ; o 
a4 NOT CAL OR oe? THEN Ag ts TRUE: of 00594400 x 
AO: AND 2 q 9 00 eee A et cide the ict> 2 ceamaate 
STARCOUNTt IF aie THEN oe ELSE IF 236 THEN 120 ELSE 1193 posseane Ym 
FIRSTISTRUES 00597000 @ 
=TOO HOM? skh 2216)5 1029800 ere, at 
IF TOO>FROM THEN es 00599000 ‘i 
pa % ieee & 00600000 @ 
. N.Y fet - O0601000 Pena aR atest) aoa ten het 2 whe scaawal 
IF NOT LAST $= CTU = FRUM LEQ 2) THEN *% NOT LaST LINE 00602000 a 
BEGIN 0U6U3000 = 
. RS EH BN agegmogg Ciwiaeee: ro 
ue BEGIN 00605006 “4 
IF FROMeROWS(FROM+Z).ROW THEN MOVECMCFROMSROWSFRUMeCUL Jo LASTROWSZ) 00606000 n @ 
LSE. : : A0407000 eee A . fade pea 
FORT MVCmMCECCFRUM+1) ¢ROWPCRRUMEL) @ COLI? 00608000 i 
LASTROWEII)é 00609009 »@ 
3 RO sae a le 000 re ee ee a) 
IF Ze12 THEN GU ENITLINES | | | — 00610100 | ‘ 
FIRSTiSFALSE; 00611000 4@ 
ALD N06i1200 a ne er Soaggattt 
ELSE 00613000 a 
BEGIN 00614000 »@ 
FROM, ROwWe(FROMs R HE MOVE (MCE ROM iWwe FR : HISROW O00 | ¢ ke hh se ee, & ; hone i‘ 
ELSE 2 es 00616000 | 
; FOR] MVCMCCFROM+1) «ROW* CFROMSI) COLI» 00617000 “@ 
Hy SROK i oe : OC BOO fo tn ee a | anil 
IF (MATCH SSCOMPAREWURDSCTHISROWLO]>+LASTROWLO]22)) & 00619000 ais 
Alu NOT STARD THEN 00620000 @ 
ME STA oe N0O21000 eS, 2 
IF DOUBLESPACE THEN 00622000 
WRI TECPLOBLI*STARZ»STARCOUAT) ELSE 00623000 
RR a AMC iUN ° O062 400 fe he, NG 
STARDI®TRUES 00625000 
aoe 00626000 
MATCH THEN =a = ; NN627000 ae 
BEGIN “rey 00628000 
STARDISEFALSES Magne ivi ale. ib 90629000. 
MOVECTHISROWSLASTROW*Z)3 % me 00630000 ds tunes : 
END} 00631000 
END3 00632000 
ND 3% OT LAST _ 00633000 es 
IF LAST OR : S : be 00634000 
on NOT. ely OR Pee ee as > 00635000 
“NOT MATC H No: ' ese es os oo ee. 0063600 
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oar BEGELTCMLRSBAT ROWsC IAT conn) as ra 


eRAND 5, 


OOafoodn | 


BEGIN 00637000 
EDITLINES 00637100 
s MINC?Z “OPER Bn es ee a, a ee ee ‘ é eens 
IF(FROM*R), RCW NEG FROM. ROW THEN & CROSS ROW ROUND 00639000 
BUILOCFROMsALINEL*J)] »MC FROM. ROWS FROM, ag ane ae aie ne 00640000 
ROMsR 2 Ok RUM+R OO6s41000 ee ct 
Z@=R ELSE Or ALp AU) ELSE & STILL IN SAME RUW Or M ARRAY 00642000 
BUILDCFROM »saALINEL*), MLFROMe PRUWPFROM.CULI sR» 00643000 
MIO». 0- BEN =k ACi) 3 2. 004 0.0.0 ceatsh lem a eels tae 
IF 2212 THEN IF FIRST THEN 00644100 
BEGIN 00444200 
R sea Sh Sie te ttn les Set ei elle A OG 8 ia a eI An dip ee gn 3 
IF DONTPRINTLINKS THEN ELSE 00644310 
BEGIN OUGHA3Z2U 
¥P ANI INE» 6 2eZetREp AVALNK a 006 oer sence tee Sn he) im 
WRITECPCOBLIJ +1 8e5LINEL*) 93 00644500 
ENOS CO644s51g 
£ Wi 006 60 tote bes pessoas wee 
IF DQUBLESPACE THEN WRITECPCDOBLI,18-ALINEC#)]) ELSE 00645000 
WRITE CPS 16sALINEC #13 00646000 
ND 3% SEUOBUTOOU iii. See oe 
END UNTIL: CFROM t= FROM + 2) GEQ@ TOOs % 00648000 
ape nn Oar % 00649000 
om : KO465000 cat a ee eat 
PuRWAg ITEMCA5 2" = “g2(UsxXl)+A5eX89)3 00651000 
BOOLEAN PROCEDURE PUATADESCCAT*sWHATIS VALUE Al; 00651100 
ARRAY LINELOf14]3 00652000 oe 
edie Oe rahe eenan ee 00653000 
RAN: PL) Re 8 a a 0S OO 
INTEGER WHAT» ADK 00635000 
BOULEAN RANGE; 00656000 
B 4t ee a eee OL CL» AY Af OY OW @ ee ete a i oe ST eS 
INTEGER Hol oT; 00658000 
BOOLEAN PP3 00658100 
DD? = AN ost 1 : Atle 00658500 os 
IF “NOT PP THEN IF PDATADESC(Ts KH) AND eee T NEQ O THEN ELSE 00658600 
RANGES =F ALSE3 00658700 
WR : NN * M A 00659Q0 peace lt cha ett 
OCTALCHISHIHALF(T) 22 00660000 
OCTALCL FL GHALF (CT) )e 00661000 
RAN HEN 0 Ak. a1 + Cr 00662000 ed Seah NP eet 
ELSE ")3 00663000 
IF eR HY AND WHATSPRTMAA THEN 00664000 
MOVE CNAM , N 00665000 a ee 
cae NAME CNHATI « FF)S” 00666000 
is SGLTOG THEN BRITECE AL EINE ER) eLse 00666500 
“ PP PEN 00666900 es 
WRITECPCDBLI°17>LINEL*1)3 00607000 
END DISPLAY ITs 00608000 
DE N 5 N046468100 Aid. 
a ‘DISPLAYIT(DISPLAY1 sDISPLAYQ00}#3 | 00668200 
BOOLEAN PROCEDURE SPERANO CATR RD NT IA a 00669000 
ne : ; 00670000 a os 
INTEGER ATs % 00671000 
REAL WHATS & 00672000 
=: N Saat 00673000 pire cee weet es AON, 
mee  ANTEGER Ret}. % an 00674000 
ae 00675000 


rane eas 
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ENU 


0 os 


ELSE % 00677000 
BEGIN & 009078000 
OPFRANDEtsTRUES ¥ 006390000 
ENDS & 00681000 
Vi) OPE RAAILD QOOAKZOOO r? Ee eer ek ee 
BOOLEAN PROCEDURE DESCRIPTURCAT? WHATS KIND) 00683000 
ena ae 004684000 
: OkR500 ee i earned aunt tacns Fanti, 
REAL Neat ano 00686000 
BEGIN . . : 00687000 
IF CKINDS=0CTALCCHRS(MERtSATe RUWeCESAT® CUL)sO¢1)2)2"40" THEN 00089000 
BEGIN 006%0000 
DESCRIPTCR STR ONON4691004 IT Pn EN, eons 
WHATtECHRS(M(R» Che ts7 23 00692000 
vENDY 00693000 
“NH RiP TOP : Pe 
RGGLEAN PROCEDURE PDATADESCCAT»WHaT)3 QON945000 
VALUE ATs 00696000 
A RAT 3 es __ou06¥7000 a ea et 
REAL WHAT; 00698000 
BEGIN ; 00699000 
eK nw a ee OO OOOO 0 sa ee ee ee ee 
IF DESCRIPTURCAT» WHATsR IND) AND 00701000 
eS calle a THEN 00702000 
Prys R i . OOZO3000 Rint cates ohne et eat he 
NDP. c0704000 
BOOLEAN ar Ue OeRe CONTROLDESCCATs WHAT )3 00705000 
hE A I Be a OO a a ss 
INTEGER AT} 00707000 
REAL WHATS 00708000 
Lh : QO0O/090 ee heen IR ORR a IE TN Sere a, al 
INTEGER TYP} 00710000 
eee ec ones ne ANO 00711000 
: $ = AND OG O0OG Me eouiRth he) eka weed te 
TYP.(43241)=0;3 00713000 
Se et are 00714000 
R MINI NKeMINBA XB A MAX O7 000 PED: 
BOOLEAN NEEDCHECKAVAILNKS}&FALSE IF ere ORF 00716000 
ARRAY COMMTCO819)3 BOOLEAN COMNT; 00717000 
-PROCEDUR PENTRIES3 oo718000 eee 
BEGIN 00719000 
SGLTOG3= TRUCS 00719100 
r) pry AY R , A 3 ¢ 720 ) s 
DISPLAYCPRT*FALSE)2- 00721000 
re artaeaspirsminel csbatad cbt 00722000 
D1§ KTRNSC SE 33 00723000 eee 
DISPLAY(SHEET»FALSE)3 00724000 
ee 00725000 
D PLAYCNFO*FA 00726000 ae 
DISPLAYCISTACK* FALSE? 00727000 
— DESPLAYCWAITQUE* FALSE )3. 00728000 
HYSPLAYCPIMIXsFALSE)3 00729000 — 
DISPLAYCPOMIX»sFALSE)2 00730000 
tag C07? 30100 
7 
“PROCEDURE. GETPRTENTRIESS 00732000 
BEGIN 00733000 
ie REAL ADRewC es PR. ROW j O07 34000. 
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REAL ADORE; 00735000 
ange Laks 00736000 
= i R fo 0 37000 | 3 | A NRA note 
FORMAT eaicures Oren LOCATIUNSs"/ 00738000 
een neo ent ae 00739000 
Q OO? 4OnNNO 
FORMAT SROPRICTEaka ea ebRL FRY DESCRIPTOR« eee xutr) 5 00741000 
LABEL ae 00742000 
OO oe! 
IF NOTCPDATADESC(PRT» i) AND LeCF NEG O AND La perics GTR O 00744000 
AND £.£8%10)3 LSS ah TREN BEGIN 00745000 
M MA =D \ M eee ec eee ree 
WRITE (P+ BADPRT) 3 Go KIT ENDS 00747000 
ADR?= L.¢3381533 00748000 
” = A 613. 0.0 O06 
Kis=]3 00750000 
RERMAXT ENGST) 00751000 
YR bod BEG OoO7S2000 
IF POATADESC(ACR+I»PRTRUN) TREN ELSE "PRTRUR ES 00753000 
IF PRTROW =C THEN 00724000 
. N os OO 785.000 ee 
Kiak+13 00756000 
MIX(K]3= I$} %& SAVE MIX NUMBER 00757000 
NEXT$ 00759G00 
ENDS # OF FINDING PTS & VALID MIXES3 007460000 
WR PP» PR : ‘ Bats 
WRITECPsFieFOR ITts0 STEP 1 UNTIL K GO OcCTALCMIX(1],033%15)))3 00762000 
aC 00763000 
ND P H : 
PROCEDURE NUMPANEATCER TO: VALUF FRILOCs INTEGER PRILUCS 00763020 
BEGIN 00763022 
NIEGER LOCeSTZE se Ti 00703024 See ee ee ea CLAY SE ETS 
FORMAT FCX2QeT4e+xX2e2(0ex1i1))3 00763026 
DISPLAYCPRTLOC» TRUE) 5 00763024 
PR Q 9 AND PF ; i PRTMAX HEN 00763 Q 
IF PDATADESCCPRILCC#LUC) THEN 00703032 
IF SIZEt#LOCe (83 F10) NEG O TREN 00763034 
Ocisl oO f3 HEIN 007603036 
_ BEGIN 00763038 
non Tis6 ae t UNTIL SIZE*1 00 00763040 
: A oD Gar. OC+ : LA OHA * 007630 
WRITECPLOBLI)3 00763044 
END; 00763046 
: D RE 0 63048 
"PROCEDURE DUMPCESSPOOL 00763100 
| » no 00763105 
HOR C'H “ABNSABNORMAL"™/"D2Z4"RR sREAD READY" 0076 ¢ 
"OZ3"BFL=BUFFER FINAL LUCATIUN', 00763115 
"O21°WwR SWRITE READY" /"D20°BSYSnUSY"/ 00763120 
a "H1B"NITREDTCU NUT READY"/ 00763 
oe "“NOTESBSY ANQ NTRSADAPTER/OTTU NOT READY" ///)3 00763130: 
“porwar WHATFILEC "CORE PORTION OF SEPTIC /"sALeAG 2/793 00763135 _ 
eR »B»FROMS BOOLEAN LO ! 00763140 
FILE SEPTIC OYSK SERIAL (2960 »MYUSE=INPUT)3 00763145 
DEFINE BUMP] = [3sI+443 007631450 
, N NTSP#INKO#3 ee OTC TSS 
ARRAY CCaNAM{O13)3 = 00763160 
oc ASE LOOPSE0N3 00763165 
ae REAM: PROCEDUR Ni TCA 00/6 6 


ee 


BEGIN OIt=sA3 DSts32 LIT 
eee INTACT. INTWRITE Re AD "5 


00763175 
00763180 


STREAM PROCEDURE FLUCAsBeCeOeE 2s VALUE Bele D3 00763190 
BEGIN Ditses 13¢DStseLit™ ae Ulises Slisa; 00763195 
D AD =i 0 4 OO763700 
2(DSt=2DECS AtSsDISQ18 APEC TRC e ZASDSIELIT"™/" 5 00763205 
D1lisDIe 13 DSt= PALIT" "a 00763210 
= As K. 4 OO & 
IF SB THEN D5: =3LIT"ABN ELSE. DItsU1+33 SKIP $83 24025 00763220 
DIt=01433 00763225 
8 = OSte3LIT"RE  FISE OT tele 3s SKIP Sas xn24 00763230 Sa ee SEE EE Ae 
DI2=O1 +33 00763235 
IF SB TREN DStS3LITVBFL” ELSE Dltsul+3s SKIF SB3 00763240 
P-a8) ODO * seins gale 
SKIP SBs*¥1GNORE Dee 00763250 
IF SB THEN DSs=3L1T"wR " ELSE Deeb regs SKIP 583 00768255 
Atten DO76 pene arereen ne 
IF SB TREN OSs=3LIT"BOY" ELSE D1ltsv1+33 SKIP 00763265 
OLss01 +35 00763270 
i 2 y ; @) O35 
IF SB THEN Dst=3L1T"NTRY ELSE DIFaD1+33 4018 00763280 
END ate ae 00763285 
PENCE i : 43 REA h AERA é (iT 3 OO7463290 
REGIN INTEGER led} 00763295 
oahee eROSEDUAE FFCAs8)3 00763300 
L$ = O : 04 Se hoc ee ey 
a(DSte2 DEC$ OStSLIT we y5 00763310 
“OL'eD1l94s OSts5 LIT " "3 00763315 
as aze b t) 
FOR [83 STEP “41 UNTIL O Lb 00763325 
BEGIN CCCIJ)%=zutsaA MOD 403 00763330 
: AZA 603 0076 
END? 00763340 
FRCCCeOLINEL79)3 00763345 
NED i 7 
BOOLEAN STREAM PROCEDURE GLUNKCAD3 00763355 
BEGIN ‘Sitsa; IF Sc" * THEN TALLY:=415 00763360 
KsalA ; 0076336 
“END GLUNKS 00763370 
ihbrcoagetli MMMCBsT)s VALUE Bs REAL 1,583 00763375 
IN REA 3 ie 00763380 ae eee 
STREAM PROCEDURE MOVECAsB)s 00763385 
BEGIN SI!sa3 DO] :s53 00763390 
8) TOGGLE THE: StSulT " ™ EL Se 00763395 
oot iahe hE SCate” THEN DSsachk Pyee. DS#sCHRI3 00763400 | 
“END MOVE3 00763405 
“FOR Ctw0 STEP 1 pei D0 00763410 
MOVECINTSPLBUMPI)>LINELC))3 00763415 
WRITECP*BeLINEL*))5 00763420 
: 0076 
Maan RETANASTA 00763430 
CNAM)3: oe oe ean 00763435 . 
JF OPERAND(TOGLRs1) AND BOOLEANCI.C: THEN 00763440 
IF PDATADESC( ARGH »FROM) AND FROMe(8110)= 128 THEN 007634645 
IF OPERANDCCFROMSsFROMeCFE)+12791)2 THEN LOSBTRUE 00763450 
se SE GO TO FOy E 0 19 EGu Eu.SE GO Tu EOws 00763455 
WR ECPLPAGE])3 ; oa ree ery, 00763460 
¢ sWHATFILES 1» POIS Tag 2d: 2 ta 
eA UC ARGH TRUE. oe O07 63470 
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WRITECPsHDR)2 00763475 
Go EONs % ae TRIS CARD TU DUMP SEFTIC DISH FILE 00763480 
H "SF OD Baa a PE Dts Ec ENe eet See 0 HO A a an 1 Us Cen Re ee eral PE TN OPE ORE EEE OE 
WHILE oO bo 00763490 
BEGIN READCSEPTIC 60s I NTSPCeJICEUIIS LtzO3 00763495 
OLeo., () 6 O0 
IF CB&sINTSPCTJ).C9i9)=0 THEN GO TG E0DUS 00763505 
FLLONAMEB, L722) Jobe COPA oboe lL1 4s a lopeleliledoL Ine); 00763510 
M N = id \ Bs : > O68 S oe 
WRITECPSLO>LINEC#) 3 00763520 
IF cetaes kt ae THEN 00763525 
BEGIN MWMC1491)3 “Bisbe143 END; 00763535 
MMM( Be I )3 00763540 
A Sead EE ne es A chet a Me Fase ee tat ht a Ge for ses ee on cn 2 
WRITECP 3 00763550 
IF 1459 THEN 00763555 
: Me A D1 p rm Hf FN r t OOP 3 0076 60 1D Sahat 
END 00763565 
EQ: TF LQ THEN 00763570 
7 N 0 -P Oz;=FA 00763575 Fa Tae ese eet tees 
IF ene AND 1 NEG O THEN 00763580 
IF OPERAND(FROM+62+ 1) AND (I20 OR 7364) THEN 00763585 
ok N FROM? SF RUM OO/ © 90 See ee oe 
IF (BssSi12—"CKi=FROM.CUL)) LSS ¢ 260) THEN 00763595 
BEGIN MCVcCMCFROM,. ROW>K 3» INTSP 283 00763660 
20s Jis6 OOLG J AOS nit Fae ot Noo tt i ited Ae 
END ELSE Bi=0;5 00763610 
MOVECMCFROM,ROWsRIsINTSPC BI] )5 00763615 
: sc : 00763620 Se cad he oa eet et, foe 
END3 ENDS END} 00763625 
INTEGER STREAM eno Ceoune MCPCNTCA)S VALUE A3 00765000 
RB 0 66000 eno lactitvncncdod: <askine 
CIF TOGGLE THEN TALLYt@TALLY#1 ELSE IF SC NEQ "0" THEN 00767000 
ee ee MCPCNT?STALLY3 00768000 
NO OF MCP pti ts OO OD OO Oe cre See a ere 
INTEGER PRTCODES %* SET TO Or1 UR 2@ BY ChHECKFRIFILE 00769900 
PROCEDURE DATIME; 00770000 
BEGIN NIEGER [3 BOO AN Bs 00771000 awl ge Tine 
STREAM PROCEDURE PRTIFILEMESSCPslec ys VALUE C3 00771100 
BEGIN LABEL MAYBE sBADs FIXeX1T3 00771105 
SLisPs Oltet3 DSs24 wuss 00771110 ent SUM eee 
CliscI+C3 Oo771115 
GO es x GO Oo7711426 
0 MAYBE; 4 (O01 ay Acs is US (ocr ea ee ae oP EE Ne Pe 
60 BADS a2 00771130 
MAYBE tOS¢s9LIT™CAPPEARS | n5 Go FIXs 00771135 
AAD! NS i= WD N a 0 DOPE T4005 = ey ee 
FIX IDSIS1LOLIT*INCORRECT "53 00771145 
XIT soStsa2uit" ne 0077115¢ 
NO PR OD 5 
oe sd NOT COMMON THEN BEGIN 00772000 
Be ae NOT: SOP ER ANDES Mere eae THEN WRITE C#»+BADCELL3 5 00773000 
: Reh fed Ox. 5 2B Wee O10 4000 
WRITE(PsBADDATE) ELSE 00775000 
BEGIN 00776000 
__DATX $= M(DATEROWADATE COL Is QOuf?7000 
DATESCDATX*#DATETAKEN*DAYSs YEARS) 5 00778000 
00779000 


ENDS % OF DATE 
FLGRLICM Ko ROW 


he 


OO 7 BUO00 


e 


i H i : : : ‘ > : : 
H i 5 BP z oes _ - en : 
TR SR UR Re 7 ee aS 7” 2 x thy S. 8 = - > 2 : ae : 
So & ££ = lee es A gee : : . Z os : = 3 = a ee a 2 é : 
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WRITE CPsBAUXCLOCK) ELSE 00781000 
BEGIN 00782000 
SX ME XC OK tne ACLOCK Cl], 40 a ee ee 
TIMES (XCLOCK» TIME TAKEN + MINUTES» SECONDS) ‘ 00784000 
ae % OF XCLOCK 00785000 
PRIF PRINAM PeLINEsPRICODE)S; Ss ——~—SCs Sa ble ttl 28 Ca 
WRITECPe8LINEL*])» 00785500 
WRITE CP*F ANAL» VERSION) 5 00785550 
WR SROSK MF UD Of M : ae hs eee ee ee ote Ay 
TOF IN. (C686)4 TOF ID); 00785610 
WRITECPsFCOMVAL*RE ALC COMMON ) 25 a 
“WR MARK Hr=(TismMmCPCwICMCPVERSTON? -GTR 6) 00786000 oes ee ae Poet 
THEN MCPVEROSION, Loto] ELOE " “"s TF B THEN 6 ELSE IF J=0 007567000 
THEN 1 ELSE JTsMCPVERSIUn*DATETAKENS DAYS s YEARS» 00788000 
M AKEN r\ TE tC I : () r 49 OQ ge ERD ee nek 2 
“END? 00790000 
EF SHAREDISK TREN 00790100 
IP -OPERAND AC AND GEQ 0 AND FQ 3 THES : O07 Q mes 
WRITECPsSYSIDe I 417)3 00790120 
DATESCTIMECO)>» CATEANALYZL Us DAYSs YEARS )3 00791000 
M M ME ANA EDeMI SECONDS); oo? ¥2qa00 _ arene, 
“WRITE CPs PMXX >DATE ANALYZED DAYS» YEARS» TIMEAWALYZED* MINUTES» SECONDS ); 00793000 
IF Ta RNON THEN. WRITECP 3 00794000 
OMMON He A OOF S5O00 et ee the Tee tae = 
IF FLGBITCMECLCCK. ROW» CLOCK sc0L]) THEN 00796000 
WRITECP*BADCLOCK) ELSE 00797000 
B N tat as enh a OV Oi at Sst oe es ene the 
CLOCx $8 MECLOCK.ROW* CLOCK, COLD} 00799000 
IF x€iacx £58 CLOCK THEN XCLOCK#XCLUCK+51840003 00800000 
M x A MN wee NOBOL1000 Svar enea ees eC ee OE 
WRITE (POF MX2¢ TIMELASTHL* MINUTES* 9ECONDS)3 00802000 
TIMES CCLOCX»SINCSLASTHL »MINUTES* SECONDS) 5 0083000 
WRITECPE OR MX 32S 1N ASTH M {N :§ ONDS 3 008 00 — 
END 3 %®OF CLOCK ; 008aso000 
ies : 00806000 
00807000 oe eet 
PROCEDURE "PRINTARRAYRGWCPRTLOC? [NxD? VALUE ear ctr 00807100 
INTEGER PRILOC,INX; 00807110 
BEGIN : 008 0 ae 
INTEGER ‘LOCsSIZE3 00807130 
BOOLEAN Bere re aUB ES ANE? : 00807140 
Se a SAS eS at a eo eso ee OOO) PAO eS oe sce roy er at hl 
STREAM "PROCEDURE FIXLINECLINEsINX)s VALUE INXS 008071460 
BEGIN LOCAL A»B; 00807170 
= L\ H s + OO9g QO é one eee a . 
32CiF: sce" "TREN JUMP QUT ELSE SlseSi4+1)3 00607190 i 
AUSST DITSsAsy OSteLIT"eo%s AtedI3 00807200 ay 
‘ #10 ALY OS8isz D FA J 13 : NO8 0 0 Se De te dee Bee 
DIsSAs DSt#3 FILLS DI2SB;3 00807230 
pene oaee eae 00807240 
ND _ : 008 0 Sx, as 
Re. JOG! sBOOLEANCINXeL1!1)) THEN beg 00807260 
co EMBED Coe TeGGs TRUE D} . ee. ai x 00807270 
INN ESABSCINY eee ae oes O0b8O7< — r 
COMSAVE!=COMMON: 00807280 
COMMON? =FALSES 00807290 
_—DBLSAVES=DOUBLESPACESs 00807295 Aye a ES Ae eG cee ne el 
f oe SEOSLESPAEEESTRUED. " 00807300 ‘ 
ae Se URE Petes eae 129 AND PRTLOC oe PRINAX. THEN. : 00807310 
Ue “ AGATN?G Cg eee a 00807320 


6 °®@ bigee 


Pag oe. ye Co Se a, ae . 7 te s tg . -o oa - > - 2 
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bop MOC 
Ss a 


x 
So 


Data Documents/inc. 


6 4, 4 2, a a 6, E : 


IF PDATADESCCPRILCC*#LUC) THEN 00807330 
IF CSIZE%=L0C.£8310)) NEO O THEN 00807340 
OG THEN PR Hed MIN Xx COb Oct+s ieee nie oe oe OO BOT 5 OF e075 ee 
BEGIN 008073640 
DISPLA¥VITCPRILOCsTRUFesPRILUC 2 SLOC.CF+INX)3 00807370 
x N x NX D2 006 BO eet? 
WRITE CPCDBLIJ,+1S9LINEL*) 25 00807390 
TOGI=TRUES 00807400 
A No ican 
ENO: 00807420 
COMMON? @COMSAVES - © 00807430 
Nous A =DR 3 pt ee ee OO BOT Ba Ge. oe 
END PRINTARRAYROW; 00807440 
DEFINE PRINTARRAYCPRIATARRAY1)& CQ8C7450 
PR tN ARRAYRO PR \ ARKA a° &; 6 8G 60 Di cetera trae soesapalheces. Ron ince eect ee eae re 
DEF INE PA=PRINTARRAY#,PARQWSPRINTARRAYRGWSS 0Q08U7470 
cheese THE BS Sade PRUCEDURE IS INTENDED TO BE MODIFIED TU SUIT 00807480 
A « R N A OW AN ARRA 008 1 7 eee east Parad ree a 
EITHER 1 OR 2 MENS TONE: TO BE DISPLAYED WITH A MINIMUM OF EFFORT. O08074B4 
IN rata A 3 CARD PATCH IS eeeae TO JRE ANALYZER! at CARD TC 00807486 
D N h N PR 3 H j OO AN a A AN t ieee 3 eet es pea Eu eh On es eet A Ie ald A's op 
IN WF ILLINFO"» SEQUENCE #00165000» AND A THIRD TO CALL BELOW ON 00807490 
"PRINTARRAY"(COR "PA") FOR I DIMENSTUNAL ARRAYS OR ON Oo8o7492 
WP RT 5 ARR *yair " OR "par Ny tt 7 SAR te a on 
NOTE THAT THE PROCEDURE “PRINTS LECTEDARRAYS™ [3 CALLED ONLY WHEN 00807496 
COMMONS163 OOB8U7498 
PR NUR id “DA AYS 5 QO8U75O0Q e sg ca at esl | 
BEGIN. 00807510 
INTEGER 13 00807515 
’ we = aA a Ny a a a i ee ie a ek ee og 
BEGIN 00807530 
WRITECPLCPAGE))3 00807540 
() , re NN i “Ua ; UB8U7S5 eS oh ted a ta aa 
PACMEMASK )3 00807560 
eo el aie 00807570 
eee SOO BOTS 76 ae oe oe so ee 
FOR re STEP 1 UNTIL. cy DU PARUWC(STATIUNsI)34 008075a0 
ee 008U7B890 
MP POO s 0080789 aes Meena Sissi, Pee 
END: PRINTSELECTEDARRAYS) 00807900 
BOOLEAN BADCOMMENT3 00806000 
ORMAT -COMNTPAR( *===P4R RRUR OCCURRED In OMMENTS BLOCK "3 _ 00809000 soe da 
PROCEDURE LOAD3 00810000 
BEGIN 00811000 
ABE | OT 5 OOBI2005 ei Fe Sri Phe ie 
LABEL: EF sPRe IGPAR; 00812010 
LABEL FLAG pPARsBADTMs IGNOREPARS 4” 00813000 
PRN BAL #9 me oe TN YA r) TR QEOCK #  M_ T7 NO8LTEO00 ara Pa Seen 
PRTFILEC™PRT FILE USEu 1s Al »AGs"/"pALPAOPKBD> 00814100 
PARERR CNP@eTRRECUVERABLE PARITY IN BLOCK x ie ear 00815000 
RRC Ne we 8 N WOR RO ALOCK 43 : 00816000 ees 
ARRAY. AEOt $3213 00817000 
STREAM PROCEOURE MOVERCS@DJ4 00818000 
“BEG. 00819000 ; 
S[t=53 Ol 3:=2D5 0g&c0000 
16(€053:232 wOS); 00821000 
Nid MD ae eR ea eee 
STREAM PROCEDURE GETCOMMUNCCUMMT»N)3 00822100 
BEGIN LOCAL XeY¥3 LABEL XITeHI Ts GETNUM: 00822110 
“ap BN} -DSte8t317%40000001") 3 2COMM Tj. Obfe24 


an 


ba 
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GO. x! 
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NL) 


Miu 


COMNT 8 
OM 


a EN 


BEGIN 
EQT! 


END} 


UU 


IF Sc=ucr 
IF SC3"C" 


13 


“hdd 


OC X3 


=” (of 


OC X> 


i 
t e 


THEN BEGIN SltsSt+]; 


" 


GETNUM?Slt=SI+ 2 


HEN S 
rare SC .GEQ "0" THEN IF SC LEQ "9" THEN” 
BEGiS TALLYZ=TALLY+13 OSteCHR ENO ELSE JUMP OUT ELSE JUMP OUT)4 00822210 

a ge ce Ne a ge a ae i On cet tn cae ee ll 


ENO GETCOMMONs 


an ‘ 


LOAD THEN 
ssf ‘ 


LTI THEN 


\ 


ANDO 
EGIN 


Ly 


= \ 


a 


* 
it 


tzSI+ a5 


{> 


rtf 


=O STEP 1 UNTIL 63 0G 


COMNT!=BADCOMMENT sFALSES 


> MM FNS 


I 


THEN BEGIN SUhesls 1 


~ =" wee 


mh 


J JM 


MOVERCACL J sMCALOI].RUNS01)3 


D O§ 


=f 


= TRUE: 
MUA OM 


MDUMPE yu. 


IF FALSE THEN 


IF NOT MULTI THEN 
ae FILETYPES"TAPE® AND TOMF 1D NEQ@ 0 THEN 


Ris 


Ad 


OSE CME MP); 


NOMG}®TRUES 


MMO. ‘BRR 


waer. 


TOMFIQD%=MDUMP,MF I03 
TOF IO t=MOUMP. oe 


H 


N. 


IF. FILETYPEs" TAPES THEN ; 
: READ(MOUMPs 2C> COMMTC #3 )CEQT#IGNOREPARD. ELSE | x 18k 


* 


50 THEN 


HEN 


READCMDUMPs233-AC#] CHAD TMIEPAR) 32 
IF FLGBITCA) THEN qd. jv ELSE 


LisTRe 


TF FALSE THEN IGNORERAR! BADCOMMENT + TRUE 


hs 


) 


[ 3 
IF REPEATING THEN IF TOFID« £30816 Je, THEN CLUSECMDUMP) 
ELSE CLOSECMDUMPs»*) ELSE 


END ELSE SlezSi+1 END ELSE SItsSI+1))3 


it 


END ELSE IF ALO}+C325)20 THEN I[tal+7s % 
COMMENT ONE BLOCK {S$ WRITTEN PER ABSENT MODs 


TR Ni GEQ O THEN COmWONTSBODLEANCRIYF NE TsOs 
IF MULTY THEN NOMOTETRUE ELEE : 
ItPARJS . 


Spee Oe Ohare. See a oe etie y,  y, eh 


READ REVERSE (HOUMP)205COMMTL #19 @ADTMETGRARE 


00822130 
Q08e2140 


00822155 
00822160 


. ce 
OOo $ 


00822175 
00822180 


00822200 


00822230 
00822240 
Q08<¢ 0 
00822260 
og04 3000 


ater. 


00824000 


00824100 


00824200. 


00824240 
008 2 4 ¢ 
00825000 
0U8e5000 
O08 24990 
00827000 
00628000 
O08 29000 
00830000 
00832000 
ane ‘ ore 
008313000 
00833010 
008 okele 
00834050 
00834060 
00834070 
00834075 
00834080 
0083408 
00834095 
00834097 
00834100 
00834200 


~ 00835000 


OO 3: oe, 
00836000 
00837000 
008370 

00837055 
00837095 
00837100 
00837200 
00837300 
00838000 


“00838010 


60838100 


00839000 
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6 0) a 0 2] 4 * = 
oD x > & & 5 © 


B 8 OB 


ELSE 00840000 
BEGIN 00841000 
rR HEN R ADARRA 30 G RO fl » i? “LS 3 _ OO84 3000 es cds Doses oa ae 
SPACECDISKe1)> 00844000 
BEAD ARGAUCNAHE STZEANAME LS Te PRTBASE)} 00845000 
RE ADARRA A NA * OOcsooo0od eee 
READARRAYCINAMESIZE> INAMEL*J°0)3 00847000 
READARRAYCINAMSSIZE*® INAMS(L*IJ20)3 00846000 
ae 0 Ks QO8 00.0 = 
NLitZOISKeMFICS N2t=DISK.FIDS 00849400 
WRITECPRINAMEL*IJsPRTIFILESNL oLOLG)sNIsN2oL O86] eNZ2)3 00849200 
ND ac a ee NS yrs oe 8 re see A DO ted eee es ge 
IF RELOAC THEN ELSE 00850100 
BEGIN 00850200 
Ma MOD eee aa reer ; Sc a RE ER ee AES a _ 
WHILE NGT MOCONLMAXMOD] DO MAxMGDssmAxmGUe43 00852000 
BAe hooe eo once nn een 13 4 00853000 
OMMON Te ‘OORS#OOH rete ein eds 6 
BEGIN 00855000 
ERMA Tet Nba se NAR ESTEE. 13 00856000 
FOR IltsPRTBASE STEP 1 UNTIL PRTMAX LO NSNAMELIII© ~008580000—=——<“—i—i—Cit—s——C( CSS 
nba ale Sh ediea 00859000 
OR 0 NIMAX OO No Jia (OORG:0 00 Go -i og t N hltn S  e s 
ISHAMELI]#PRTBASES 00861000 
FIXDEFINES3 00862000 
NAME AN NAMS 3 Bea cent wt SOO BO 8 0.0) Oe ee nen eB os el as 
IF MYSTACKADR LSS O THEN @ LETS USE IT 00863100 
IF CONTROLDESC(7s1) THEN : cree FOR bes IN CELL 7 00863110 
20 A § is @ 0 a x i # On eae 
MYSTACKADR!=1+303 % MAY NEEL MORE THAN 30 008631430 
ENDS 00864000 
Nm? OG () ()} aera peace hae 
IF FALSE THEN BEGIN 00865000 
BADTMIWRITECSPO»BADEOF 913 Go EOPROG; . 00866000 
PAK iH PC AR aGmaGa +* iP R RO Gs poeta at ks Set tte ot 
FLAG: WRITECSPC FLAGERR»I+1)%3 GO EUPROGS END» 00868000 
END LOAD$ 00869000 
PROCEDURE CH PR ry % 00870000 eee 
ZSIGNALS. USER IF MCP/PRT FILE *MIGHT* BE THE WRONG ONE 00871000 
BEGIN 00872000 
Dp g@é O08 OO 0 tae Fen 
REAL MYTYPE3 00874000 
LABEL BADs»MAYBE; 00875000 
DEF IN HECKFORL AB SCRIP s]F C LoS QO THEN GU Bal 00876000 ae Ses 
“EF DESCRIPTOR(LOCsI»TYP) AND TYP=MYTYPE THEN ELSE. a MAYBE #3 00877000 
DEFINE pala bl Ma call cap ML a eg tak or clo 00878000 


FORMAT BADPRT( "a=-YOUR at 
INCOMPAT("@==MCP/PRT FILE can COMPATIBLE WITH Vor PRT IN MEMURYs 0" 93 0O08Bb0000 
DEFINE ERRMESSCERRMESS1bEGIN WRI TECSPC>» ERRMESS1)3 00861000 
WR PA J RR ESS ) Des 3 A OO0o0G O00 
MYTYPE EAN 76"3. be Pe, 00683000 
OTF. {LOCA@NOTHINGTODD) NEQ 0. THEN. 00884000 
g TORE OOBBS5000 
IF (LOC1STACKOVERFLON) NEQ 0 THEN 00886000 
CHECKFORLABELDESCRIPTCRS 00867000 
0 sh URN) NEO O THEN sie hs es Se OR BOO 
CHECKF ORLABELDESCRIPT OR: : ; . 00889000 
iol mkcel taaabashae : es Be ry : 00890000 
DE Cp Oo ped: ORY.Bu MERA THEN LC ed po 008 0.00 


LON F010 2 ad a eee ee cer ee 
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* =: E me? yy NS 3 x TE > 
2 Pe 


CHECKFORPRUGRAMDESCRIFTUR; 


IF fel THEN MAYBE BEGIN ERRMESSCINCOMFAT); PRTCODE : =1 END3 
aot “eo R : ~ e 


Me RADE RE IN 
ENO OF CHECKPRTFILES 
PROCEDURE DUMPMCPSPRT3 


FORMAT HDRCX420"D C MC PS PR TZ 
X4Dn tm aoe = wm = att///>» 


“pRTt UCONTER “ reVNAME #t 


008%2000 
00843000 


00895000 
00896000 
o0c8Y8000 
00899000 


26 Os a a 


DASHESC120("e")), 00901000 
E¢X Bs "MEMORY MOUSS "sBl1)5 00902000 
Pea M AS." pipe eh As Se es a eet ec hee eT Ace ee nee cere wee ae fen a, 
INTEGER LOC» N3 00904000 
LABEL EXITS 00904100 
SPOOLON HEN DONTOURPR T 3 O% a a es 
IF NOT. COMMON THEN 00905000 
BEGIN | . aa 00906000 
IF NOT TS ONT OUNERT THER BEGIN DATIMEs WRITECPLCDBL4) ENDS 00908000 — 
PRINTMCPUPTIONS3 00909000 
—LE_DONTOUMP HEN Ps a ct hn ods, 2 
BEGIN 00911000 
THRITECPLOBL 1408) 5 . 00912000 
ft A STEP Ni PRT AS! Oo O00 eat ei! 
BEGIN 00914000 
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